home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Shareware / Multimedia / extrememov / extrememm2.6b3sharefull.exe / {app} / scripts / [VIDEOGUIDE.RU](Film_Info_Import) @Andrey-Samkola 6-10-2003.txt < prev    next >
Encoding:
Text File  |  2003-10-06  |  18.6 KB  |  740 lines
  1. -----------------------------------------------
  2. - Web :      VIDEOGUIDE.RU                    -
  3. - Author :   Krasnokutski Andrey              -
  4. - Date  :    07/05/2003                       -
  5. - Comments : Full Import without pictures     -
  6. -                                             -
  7. -                                             -
  8. -----------------------------------------------
  9.  
  10. #MADEBY#=Krasnokutski Andrey
  11. #DATEBUILD#=07/05/2003
  12. #WEBSITE#=VIDEOGUIDE.RU (RUSSIAN)
  13. #SCRIPTQUALITY#=3
  14. #ICONQUALITY#=4
  15.  
  16. #WEBQUERY#=http://www.videoguide.ru/find.asp?Search=Simple&types=film&titles=#MOVIE#
  17.  
  18. #RIGHTPAGEFOUND#
  19.     #PUT#=1#04# 
  20.     #PUT#=1#03#
  21.     #CONDITIONRIGHTPAGE# #03#<>#04#
  22. #ENDRIGHTPAGEFOUND#
  23.  
  24. #CREATEMOVIELIST#
  25.     #STARTREADWEB#
  26.     #WRITETITLELIST#=-------------╬±φεΓφα  ßατα ⌠Φδⁿ∞εΓ--------------
  27.     #PUT#=0#09#
  28.     #PUT#=0#08#
  29.     #PUT#=0#07#
  30.     #PUT#=1#06#
  31. :REPEATSEARCH1
  32. //═α⌡εΣΦ∞ ±±√δΩ≤ φα ⌠Φδⁿ∞
  33.       #PUT#=1#01#
  34.       #IF#  #07#==#09#
  35.        #FINDLINE#=card_film.asp?idFilm=#01# #ONERROR#=*OK*
  36.       #ENDIF#
  37.      #IF#  #09#==#01#
  38.       #PUT#=1#07#
  39.       #STARTREADWEB#
  40.       #WRITETITLELIST#=-------------╬±φεΓφα  ßατα ≡σδΦτεΓ--------------
  41.      #ENDIF#
  42.       #IF#  #07#==#06#
  43.        #FINDLINE#=card_relis.asp?id_relis=#01# #ONERROR#=*OK*
  44.       #ENDIF#
  45.        #IF#  #09#==#01#
  46.          #GOTO#=ENDSEARCH1
  47.        #ENDIF#
  48.        #PUT#=1#08#
  49.        #PUTCURSOR#=#01#
  50.        #FIND#="#02##ONERROR#=*OK*
  51.        #COMPUTEVAR#=#01#=-1
  52.        #TAKEWORD#=#03#,#01#,#02#
  53. //═α⌡εΣΦ∞ ≡≤±±Ωεσ φατΓαφΦσ
  54.        #FIND#=>#01##ONERROR#=*OK*
  55.        #FIND#=</a>#02##ONERROR#=*OK*
  56.        #TAKEWORD#=#20#,#01#,#02#     
  57. //═α⌡εΣΦ∞ αφπδΦΘ±Ωεσ φατΓαφΦσ
  58.        #FIND#= /#01##ONERROR#=*OK*
  59.       #IF# #01#==#09#
  60.        #READNEXTLINE#
  61.        #FIND#= /#01##ONERROR#=*OK*
  62.       #ENDIF#
  63.       #IF# #01#==#09#
  64.        #READNEXTLINE#
  65.        #FIND#= /#01##ONERROR#=*OK*
  66.       #ENDIF#
  67.  
  68.        #PUT#=#21#
  69.        #IF# #01#<>#09#
  70.          #COMPUTECURSOR#=+7
  71.          #PUTCURSOR#=#01#
  72.          #FIND#=/#02##ONERROR#=*OK*
  73.          #COMPUTEVAR#=#01#=-1
  74.          #TAKEWORD#=#21#,#01#,#02#
  75.          #STRING#=#21#= / #21#
  76.        #ENDIF#
  77. //═α⌡εΣΦ∞ πεΣ
  78.        #FIND#= (#01##ONERROR#=*OK*
  79.      #IF# #01#==#09#
  80.       #READNEXTLINE#
  81.       #FIND#= (#01##ONERROR#=*OK*
  82.      #ENDIF#
  83.        #PUT#=#22#
  84.        #IF# #01#<>#09#
  85.          #COMPUTECURSOR#=+7
  86.          #PUTCURSOR#=#01#
  87.          #FIND#=)#02##ONERROR#=*OK*
  88.          #COMPUTEVAR#=#01#=-1
  89.          #TAKEWORD#=#22#,#01#,#02#
  90.          #STRING#=#22#=(#22#)
  91.        #ENDIF#
  92. //╟αφε±Φ∞ Γ ±∩Φ±εΩ ±≥≡εΩ≤
  93.        #WRITETITLELIST#=http://www.videoguide.ru/#03#  ---> #20##21# #22#
  94.     #GOTO#=REPEATSEARCH1
  95. :ENDSEARCH1
  96.     #IF#  #09#==#08#
  97.        #WRITETITLELIST#=     ╧ε ┬α°σ∞≤ τα∩≡ε±≤ φΦ≈σπε φσ φαΘΣσφε.
  98.        #WRITETITLELIST#=------------------------------------------------
  99.        #GOTO#=ENDLIST1
  100.     #ENDIF#
  101.     #WRITETITLELIST#=
  102.     #WRITETITLELIST#=-----------------╧εΦ±Ω ταΩεφ≈σφ-----------------
  103. :ENDLIST1
  104. #ENDCREATEMOVIELIST#
  105.  
  106. #MOVIETITLE#
  107.     #STARTREADWEB#
  108.     #FINDLINE#=<TITLE>#12##ONERROR#=*STOP*
  109.     #PUT#=0#09#
  110.  //═α⌡εΣΦ∞ ≡≤±±Ωεσ φατΓαφΦσ
  111.     #FIND#= - #01##ONERROR#=*OK*
  112.     #IF# #01#<>#09#
  113.       #COMPUTECURSOR#=+2
  114.       #PUTCURSOR#=#01#
  115.       #FIND#= #02##ONERROR#=*OK*
  116.       #COMPUTEVAR#=#01#=-1
  117.       #TAKEWORD#=#03#,#01#,#02#
  118.    #ENDIF#
  119. //═α⌡εΣΦ∞ αφπδΦΘ±Ωεσ φατΓαφΦσ
  120.     #FIND#=/#01##ONERROR#=*OK*
  121.     #IF# #01#==#09#
  122.      #GOTO#=ENDTIT
  123.     #ENDIF#
  124.       #COMPUTECURSOR#=+1
  125.       #PUTCURSOR#=#01#
  126.       #FIND#=/#02##ONERROR#=*OK*
  127.     #IF# #02#==#09#
  128.      #GOTO#=ENDTIT
  129.     #ENDIF#
  130.       #COMPUTEVAR#=#01#=-1
  131.       #TAKEWORD#=#03#,#01#,#02#
  132. :ENDTIT
  133.     #CHECKVARIABLE#=#03#
  134.     #STARTSUBSTITUTETAGS#
  135.     #STARTDELETETAGS#
  136.  #TITLE#=#03#
  137. #ENDMOVIETITLE#
  138.  
  139. #POSTER#
  140.  #STARTREADWEB#  // Find Headshot Picture
  141.     #FINDLINE#=/img/films/#12##ONERROR#=*OK*   /img/rel/
  142.     #PUT#=0#13#
  143.     #PUT#=0#14#
  144.     #IF# #13#==#12#
  145.  #STARTREADWEB#
  146.   #FINDLINE#=/img/rel/#12##ONERROR#=*OK*
  147.  #ENDIF#
  148.     #IF# #13#==#12#
  149.         // no Picture present
  150.         #GOTO#=ENDPOST
  151.     #ENDIF#
  152.     #COMPUTECURSOR#=-3
  153.     #FIND#="/img/films/#01# #ONERROR#=*OK*
  154.     #IF# #13#==#01#
  155.      #FIND#="/img/rel/#01##ONERROR#=*OK*
  156.     #ENDIF#
  157.     #COMPUTECURSOR#=+2
  158.     #FIND#="#02# #ONERROR#=*OK*
  159.     #TAKEWORD#=#03#,#01#,#02#
  160.     #STRING#=#14#=http://www.videoguide.ru#03#
  161.     #TAKEPOSTER#=#14# 
  162.     :ENDPOST
  163. #ENDPOSTER#
  164.  
  165. #PHOTOGRAPHER#
  166.     #STARTREADWEB#
  167.     #FINDLINE#=>╬∩σ≡α≥ε≡</#12##ONERROR#=*STOP*
  168.     #PUT#=0#09#
  169. :NEWPHOTOGRAPHERSEARCH
  170.     #FIND#=/card_person.asp?idPerson=#01# #ONERROR#=*STOP*
  171.     #IF#  #09#==#01#
  172.        #GOTO#=ENDPHOTOGRAPHERSEARCH
  173.     #ENDIF#  
  174. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  175.     #FIND#=">#01# #ONERROR#=*STOP*
  176.     #COMPUTECURSOR#=+1
  177.     #PUTCURSOR#=#01#
  178. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  179.     #FIND#=</a>#02# #ONERROR#=*STOP*
  180. //╨≤±±Ωεσ Φ∞ 
  181.    #TAKEWORD#=#05#,#01#,#02#
  182. //└φπδΦΘ±Ωεσ Φ∞ 
  183.    //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  184.     #FIND#=a>#01# #ONERROR#=*ok*
  185.     #FIND#=<#02# #ONERROR#=*ok*
  186.     #COMPUTEVAR#=#01#=+4
  187.     #IF#  #02#>>#01#
  188.     #COMPUTECURSOR#=+3
  189.     #COMPUTEVAR#=#01#=-1
  190.     #COMPUTEVAR#=#02#=-1
  191.     #TAKEWORD#=#05#,#01#,#02#
  192.     #ENDIF#
  193.     #CHECKVARIABLE#=#05#
  194.     #STARTSUBSTITUTETAGS#
  195.     #TAKEPHOTOGRAPHER#=#05#
  196.     #GOTO#=NEWPHOTOGRAPHERSEARCH
  197. :ENDPHOTOGRAPHERSEARCH
  198. #ENDPHOTOGRAPHER#
  199.  
  200.  
  201. #WRITER#
  202.     #STARTREADWEB#
  203.     #FINDLINE#=>╤÷σφα≡Φ±≥</#12##ONERROR#=*STOP*
  204.     #PUT#=0#09#
  205. :NEWWRITERSEARCH
  206.     #FIND#=/card_person.asp?idPerson=#01# #ONERROR#=*STOP*
  207.     #IF#  #09#==#01#
  208.        #GOTO#=ENDWRITERSEARCH
  209.     #ENDIF#  
  210. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  211.     #FIND#=">#01# #ONERROR#=*STOP*
  212.     #COMPUTECURSOR#=+1
  213.     #PUTCURSOR#=#01#
  214. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  215.     #FIND#=</a>#02# #ONERROR#=*STOP*
  216. //╨≤±±Ωεσ Φ∞ 
  217.     #TAKEWORD#=#05#,#01#,#02#
  218. //└φπδΦΘ±Ωεσ Φ∞ 
  219.    //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  220.     #FIND#=a>#01# #ONERROR#=*ok*
  221.     #FIND#=<#02# #ONERROR#=*ok*
  222.     #COMPUTEVAR#=#01#=+4
  223.     #IF#  #02#>>#01#
  224.     #COMPUTECURSOR#=+3
  225.     #COMPUTEVAR#=#01#=-1
  226.     #COMPUTEVAR#=#02#=-1
  227.     #TAKEWORD#=#05#,#01#,#02#
  228.     #ENDIF#
  229.     #CHECKVARIABLE#=#05#
  230.     #STARTSUBSTITUTETAGS#
  231.     #TAKEWRITER#=#05#
  232.     #GOTO#=NEWWRITERSEARCH
  233. :ENDWRITERSEARCH
  234. #ENDWRITER#
  235.  
  236.  
  237. #PRODUCER#
  238.     #STARTREADWEB#
  239.     #FINDLINE#=>╧≡εΣ■±σ≡</#12##ONERROR#=*STOP*
  240.     #PUT#=0#09#
  241. :NEWPRODUCERSEARCH
  242.     #FIND#=/card_person.asp?idPerson=#01# #ONERROR#=*STOP*
  243.     #IF#  #09#==#01#
  244.        #GOTO#=ENDPRODUCERSEARCH
  245.     #ENDIF#  
  246. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  247.     #FIND#=">#01# #ONERROR#=*STOP*
  248.     #COMPUTECURSOR#=+1
  249.     #PUTCURSOR#=#01#
  250. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  251.     #FIND#=</a>#02# #ONERROR#=*STOP*
  252. //╨≤±±Ωεσ Φ∞ 
  253.     #TAKEWORD#=#05#,#01#,#02#
  254. //└φπδΦΘ±Ωεσ Φ∞ 
  255.    //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  256.     #FIND#=a>#01# #ONERROR#=*ok*
  257.     #FIND#=<#02# #ONERROR#=*ok*
  258.     #COMPUTEVAR#=#01#=+4
  259.     #IF#  #02#>>#01#
  260.     #COMPUTECURSOR#=+3
  261.     #COMPUTEVAR#=#01#=-1
  262.     #COMPUTEVAR#=#02#=-1
  263.     #TAKEWORD#=#05#,#01#,#02#
  264.     #ENDIF#
  265.     #CHECKVARIABLE#=#05#
  266.     #STARTSUBSTITUTETAGS#
  267.     #TAKEPRODUCER#=#05#
  268.     #GOTO#=NEWPRODUCERSEARCH
  269. :ENDPRODUCERSEARCH
  270. #ENDPRODUCER#
  271.  
  272.  
  273. #MUSIC#
  274.     #STARTREADWEB#
  275.     #FINDLINE#=>╩ε∞∩ετΦ≥ε≡</#12##ONERROR#=*STOP*
  276.     #PUT#=0#09#
  277. :NEWMUSICSEARCH
  278.     #FIND#=/card_person.asp?idPerson=#01# #ONERROR#=*STOP*
  279.     #IF#  #09#==#01#
  280.        #GOTO#=ENDMUSICSEARCH
  281.     #ENDIF#  
  282. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  283.     #FIND#=">#01# #ONERROR#=*STOP*
  284.     #COMPUTECURSOR#=+1
  285.     #PUTCURSOR#=#01#
  286. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  287.     #FIND#=</a>#02# #ONERROR#=*STOP*
  288. //╨≤±±Ωεσ Φ∞ 
  289.     #TAKEWORD#=#05#,#01#,#02#
  290. //└φπδΦΘ±Ωεσ Φ∞ 
  291.    //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  292.     #FIND#=a>#01# #ONERROR#=*ok*
  293.     #FIND#=<#02# #ONERROR#=*ok*
  294.     #COMPUTEVAR#=#01#=+4
  295.     #IF#  #02#>>#01#
  296.     #COMPUTECURSOR#=+3
  297.     #COMPUTEVAR#=#01#=-1
  298.     #COMPUTEVAR#=#02#=-1
  299.     #TAKEWORD#=#05#,#01#,#02#
  300.     #ENDIF#
  301.     #CHECKVARIABLE#=#05#
  302.     #STARTSUBSTITUTETAGS#
  303.     #TAKEMUSIC#=#05#
  304.     #GOTO#=NEWMUSICSEARCH
  305. :ENDMUSICSEARCH
  306. #ENDMUSIC#
  307.  
  308.  
  309. #STUDIO#
  310.     #STARTREADWEB#
  311.     #FINDLINE#=╧≡αΓεεßδαΣα≥σδΦ:#12##ONERROR#=*STOP*
  312.     #PUT#=0#09#
  313. :NEWSTUDIOSEARCH
  314.     #FIND#=card_firm.asp?IdFirm=#01# #ONERROR#=*STOP*
  315.     #IF#  #09#==#01#
  316.        #GOTO#=ENDSTUDIOSEARCH
  317.     #ENDIF#  
  318. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  319.     #FIND#=">#01# #ONERROR#=*STOP*
  320.     #COMPUTECURSOR#=+1
  321.     #PUTCURSOR#=#01#
  322. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  323.     #FIND#=</a>#02# #ONERROR#=*STOP*
  324. //└φπδΦΘ±Ωεσ Φ∞ 
  325.     #TAKEWORD#=#03#,#01#,#02#
  326. //┼±δΦ Ωε∞∩αφΦ  φσ ∩≡εΦτΓεΣΦ≥σδⁿ, ≥ε φσ ΣεßαΓδ σ∞ σσ
  327.     #FIND#=╧≡εΦτΓεΣΦ≥σδⁿ#12# #ONERROR#=*STOP*
  328.     #IF#  #09#==#12#
  329.        #READNEXTLINE#
  330.        #READNEXTLINE#
  331.        #GOTO#=NEWSTUDIOSEARCH
  332.     #ENDIF# 
  333.     #CHECKVARIABLE#=#03#
  334.     #STARTSUBSTITUTETAGS#
  335.     #TAKESTUDIO#=#03#
  336.     #READNEXTLINE#
  337.     #READNEXTLINE#
  338.     #GOTO#=NEWSTUDIOSEARCH
  339. :ENDSTUDIOSEARCH
  340. #ENDSTUDIO#
  341.  
  342. #DISTRIBUTOR#
  343.     #STARTREADWEB#
  344.     #FINDLINE#=╧≡αΓεεßδαΣα≥σδΦ:#12##ONERROR#=*STOP*
  345.     #PUT#=0#09#
  346. :NEWDISTRIBUTORSEARCH
  347.     #FIND#=card_firm.asp?IdFirm=#01# #ONERROR#=*STOP*
  348.     #IF#  #09#==#01#
  349.        #GOTO#=ENDDISTRIBUTORSEARCH
  350.     #ENDIF#  
  351. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  352.     #FIND#=">#01# #ONERROR#=*STOP*
  353.     #COMPUTECURSOR#=+1
  354.     #PUTCURSOR#=#01#
  355. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  356.     #FIND#=</a>#02# #ONERROR#=*STOP*
  357. //└φπδΦΘ±Ωεσ Φ∞ 
  358.     #TAKEWORD#=#03#,#01#,#02#
  359. //┼±δΦ Ωε∞∩αφΦ  φσ ∩≡εΦτΓεΣΦ≥σδⁿ, ≥ε φσ ΣεßαΓδ σ∞ σσ
  360.     #FIND#=─Φ±≥≡Φßⁿ■≥ε≡#12# #ONERROR#=*OK*
  361.     #IF#  #09#==#12#
  362.        #READNEXTLINE#
  363.        #READNEXTLINE#
  364.        #GOTO#=NEWDISTRIBUTORSEARCH
  365.     #ENDIF# 
  366.     #CHECKVARIABLE#=#03#
  367.     #STARTSUBSTITUTETAGS#
  368.     #TAKEDISTRIBUTOR#=#03#
  369.     #READNEXTLINE#
  370.     #READNEXTLINE#
  371.     #GOTO#=NEWDISTRIBUTORSEARCH
  372. :ENDDISTRIBUTORSEARCH
  373. #ENDDISTRIBUTOR#
  374.  
  375. #DIRECTOR#
  376.     #STARTREADWEB#
  377.     #FINDLINE#=╨σµΦ±±σ≡:#12##ONERROR#=*STOP*
  378. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  379. :DIRESEARCH
  380.     #FIND#=">#01# #ONERROR#=*ok*
  381.     #PUT#=0#09#
  382.     #IF#  #09#==#01#
  383.        #FIND#=b>#01# #ONERROR#=*ok*
  384.     #ENDIF#
  385.     #IF# #09#==#01#
  386.        #GOTO#=ENDDIRESEARCH
  387.     #ENDIF#  
  388.     #COMPUTECURSOR#=+1
  389.     #PUTCURSOR#=#01#
  390. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  391.     #FIND#=</a>#02# #ONERROR#=*ok*
  392. //╨≤±±Ωεσ Φ∞ 
  393.     #TAKEWORD#=#05#,#01#,#02#
  394. //└φπδΦΘ±Ωεσ Φ∞ 
  395.    //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  396.     #FIND#=a>#01# #ONERROR#=*ok*
  397.     #FIND#=<#02# #ONERROR#=*ok*
  398.     #COMPUTEVAR#=#01#=+4
  399.     #IF#  #02#>>#01#
  400.     #COMPUTECURSOR#=-3
  401.     #COMPUTEVAR#=#01#=-1
  402.     #FIND#=/#02# #ONERROR#=*ok*
  403.     #TAKEWORD#=#05#,#01#,#02#
  404.     #ENDIF#
  405.     #CHECKVARIABLE#=#05#
  406.     #STARTSUBSTITUTETAGS#
  407.     #TAKEDIRECTOR#=#05#
  408.     #GOTO#=DIRESEARCH
  409. :ENDDIRESEARCH
  410. #ENDDIRECTOR#
  411.  
  412. #ACTORS#
  413.     #STARTREADWEB#
  414.     #FINDLINE#=≡εδ ⌡:</#12##ONERROR#=*STOP*
  415.     #PUT#=0#09#
  416. :NEWACTORSEARCH
  417.     #FIND#=/card_person.asp?idPerson#01# #ONERROR#=*ok*
  418.     #IF# #09#<>#01#
  419.        #FIND#=">#01# #ONERROR#=*ok*
  420.        #GOTO#=NEXTACTORSEARCH
  421.     #ENDIF#
  422.     #IF# #09#==#01#
  423.        #FIND#=b>#01# #ONERROR#=*ok*
  424.     #ENDIF#
  425.     #IF# #09#<>#01#
  426.        #GOTO#=NEXTACTORSEARCH
  427.     #ENDIF#
  428.     #IF# #09#==#01#
  429.        #FIND#=, #01# #ONERROR#=*ok*
  430.     #ENDIF#
  431.     #IF# #09#==#01#
  432.  
  433.       #GOTO#=ENDACTORSEARCH
  434.     #ENDIF#  
  435. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  436.     #FIND#=">#01# #ONERROR#=*ok*
  437.     #IF# #09#==#01#
  438.        #FIND#=, #01# #ONERROR#=*ok*
  439.     #ENDIF#
  440. :NEXTACTORSEARCH
  441.     #COMPUTECURSOR#=+1
  442.     #PUTCURSOR#=#01#
  443. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  444.     #FIND#=</a>#02# #ONERROR#=*ok*
  445.     #IF# #09#==#02#
  446.        #FIND#=, #02# #ONERROR#=*ok*
  447.      #TAKEWORD#=#05#,#01#,#02#
  448.      #GOTO#=ACTORSE
  449.     #ENDIF#
  450. //╨≤±±Ωεσ Φ∞ 
  451.     #TAKEWORD#=#05#,#01#,#02#
  452. //└φπδΦΘ±Ωεσ Φ∞ 
  453.    //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  454.     #FIND#=a>#01# #ONERROR#=*ok*
  455.     #FIND#=<#02# #ONERROR#=*ok*
  456.     #COMPUTEVAR#=#01#=+4
  457.     #IF#  #02#>>#01#
  458.     #COMPUTECURSOR#=-3
  459.     #COMPUTEVAR#=#01#=-1
  460.     #FIND#=/#02# #ONERROR#=*ok*
  461.     #TAKEWORD#=#05#,#01#,#02#
  462.     #ENDIF#
  463. :ACTORSE  
  464.     #CHECKVARIABLE#=#05#
  465.     #STARTSUBSTITUTETAGS#
  466.     #STARTDELETETAGS#
  467.     #ADDACTOR#=#05#
  468.     #TAKEACTOR#=#05#
  469.     #GOTO#=NEWACTORSEARCH
  470. :ENDACTORSEARCH
  471. #ENDACTORS#
  472.  
  473. #STUDIO#
  474.     #STARTREADWEB#
  475.     #FINDLINE#=╧≡εΦτΓεΣ±≥Γε:#12##ONERROR#=*STOP*
  476.     #PUT#=0#09#
  477.     #COMPUTECURSOR#=+12
  478. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  479.     #FIND#= <br>#04# #ONERROR#=*STOP*
  480.  
  481. //╧σ≡σ∞σ∙ασ∞ Ω≤≡±ε≡ Γ φα≈αδε ßδεΩα
  482.     #STARTREADWEB#
  483.     #FINDLINE#=╧≡εΦτΓεΣ±≥Γε:#12##ONERROR#=*STOP*
  484.     #COMPUTECURSOR#=+12
  485.     #PUTCURSOR#=#01#
  486.  
  487.     #TAKEWORD#=#03#,#01#,#04#
  488.     #TAKESTUDIO#=#03#
  489. #ENDSTUDIO#
  490.  
  491. #COUNTRY#
  492.     #STARTREADWEB#
  493.     #FINDLINE#=catalog.asp?task=genre ##ONERROR#=*STOP*
  494.     #READNEXTLINE#
  495.     #READNEXTLINE#
  496. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  497.     #FIND#=<I>#04# #ONERROR#=*OK*
  498.     #COMPUTECURSOR#=+2
  499.     #PUTCURSOR#=#01#
  500. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  501.     #FIND#= #02# #ONERROR#=*OK*
  502.     #TAKEWORD#=#03#,#01#,#02#
  503.     #TAKECOUNTRY#=#03#
  504. #ENDCOUNTRY#
  505.  
  506. #YEAR#
  507.     #STARTREADWEB#
  508.     #FINDLINE#=catalog.asp?task=genre ##ONERROR#=*STOP*
  509.     #READNEXTLINE#
  510.     #READNEXTLINE#
  511.     #READNEXTLINE#
  512.     #READNEXTLINE#
  513. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  514.     #FIND#=<br>#04# #ONERROR#=*OK*
  515.     #COMPUTECURSOR#=+3
  516.     #PUTCURSOR#=#01#
  517. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  518.     #FIND#=; #02# #ONERROR#=*OK*
  519.     #TAKEWORD#=#03#,#01#,#02#
  520.     #TAKEYEAR#=#03#
  521. #ENDYEAR#
  522.  
  523.  
  524. #GENRE#
  525.     #STARTREADWEB#
  526.     #PUT#=0#09#
  527.     #FINDLINE#=catalog.asp?task=genre ##ONERROR#=*ok*
  528.      #IF# #09#<>#12#
  529.       #GOTO#=nextfind
  530.      #ENDIF#
  531.  
  532.        #STARTREADWEB#
  533.       #FINDLINE#=<p><b>#12# #ONERROR#=*stop*
  534.       #FIND#=small>#01# #ONERROR#=*ok*
  535.       #FIND#=/ #03# #ONERROR#=*ok*
  536.      #IF# #09#<>#03#
  537.       #FIND#= #01# #ONERROR#=*ok*
  538.      #ENDIF#
  539.        #COMPUTECURSOR#=+5
  540.        #PUTCURSOR#=#01#
  541.        #FIND#= #02# #ONERROR#=*ok*
  542.      #TAKEWORD#=#03#,#01#,#02#
  543.     #TAKECOUNTRY#=#03#
  544.      #COMPUTECURSOR#=+5
  545.      #PUTCURSOR#=#01#
  546.      #FIND#= #02# #ONERROR#=*ok*
  547.      #TAKEWORD#=#03#,#01#,#02#
  548.     #TAKEYEAR#=#03#
  549.      #COMPUTECURSOR#=+5
  550.      #PUTCURSOR#=#01#
  551.      #FIND#= #02# #ONERROR#=*ok*
  552.      #TAKEWORD#=#03#,#01#,#02#
  553.     #TAKERUNTIME#=#03#
  554.     #FIND#=<br>#01# #ONERROR#=*ok* 
  555.     #COMPUTECURSOR#=+3
  556.     #PUTCURSOR#=#01#
  557.     #TAKEWORD#=#03#,#01#,#09#
  558.   #TAKEGENRE#=#03#
  559.    #GOTO#=END3
  560.     
  561. :nextfind
  562.     #PUT#=0#09#
  563. //═α⌡εΣΦ∞ Ωεφσ÷ Σαφφεπε ßδεΩα
  564.     #FIND#=</a>#04# #ONERROR#=*OK*
  565. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  566.     #STARTREADWEB#
  567.     #FINDLINE#=catalog.asp?task=genre ##ONERROR#=*ok*
  568.     #FIND#=>#01# #ONERROR#=*OK*
  569.  
  570.     #REPEAT#
  571. //═α⌡εΣΦ∞ ≡ατΣσδΦ≥σδⁿ (σ±δΦ εφα σ±≥ⁿ)
  572.         #FIND#=/#02##ONERROR#=*OK*
  573. //┼±δΦ ≡ατΣσσδΦ≥σδ  φσ≥, ≥ε δΦßε Γ ßδεΩσ εΣφε Φ∞ , δΦßε ²≥ε ∩ε±δσΣφσσ Φ∞  (≡ατΣσδσφφεσ τα∩ ≥√∞Φ)
  574.         #IF# #09#==#02#
  575.             #TAKEWORD#=#03#,#01#,#04#
  576.           #TAKEGENRE#=#03#
  577.             #GOTO#=END3
  578.         #ENDIF#
  579. //┼±δΦ ≡ατΣσδΦ≥σδⁿ σ±≥ⁿ Γ ßδεΩσ, ≥ε
  580.         #IF# #04#>>#02#
  581.             #TAKEWORD#=#03#,#01#,#02#
  582.           #TAKEGENRE#=#03#
  583.             #COMPUTECURSOR#=+1
  584.             #PUTCURSOR#=#01#
  585.             #COMPUTEVAR#=#01#=-1
  586.         #ENDIF#
  587. //┼±δΦ ≡ατΣσδΦ≥σδⁿ τα ßδεΩε∞, ≥ε
  588.         #IF# #04#<<#02#
  589.             #TAKEWORD#=#03#,#01#,#04#
  590.           #TAKEGENRE#=#03#
  591.             #PUT#=0#02# 
  592.         #ENDIF#
  593.     #WHILE# #09#<>#02#    
  594. :END3
  595. #ENDGENRE#
  596.  
  597. #PLOT#
  598.     #STARTREADWEB#
  599. //═α⌡εΣΦ∞ φα≈αδε Σαφφεπε ßδεΩα
  600.     #FINDLINE#=<p align="JUSTIFY">#12##ONERROR#=*STOP*
  601.     #PUT#=0#09#
  602.     #COMPUTECURSOR#=+18
  603.     #PUTCURSOR#=#01#
  604.     #TAKEWORD#=#03#,#01#,#09#
  605.     #CHECKVARIABLE#=#03#
  606.     #STARTSUBSTITUTETAGS#
  607.     #STARTDELETETAGS#
  608.     #TAKEPLOT#=#03#
  609. #ENDPLOT#
  610.  
  611. #DELETETAGS#
  612.     #DELETEWORD#=<B>
  613.     #DELETEWORD#=</B>
  614.     #DELETEWORD#=<b>
  615.     #DELETEWORD#=</b>
  616.     #DELETEWORD#=<i>
  617.     #DELETEWORD#=<I>
  618.     #DELETEWORD#=</I>
  619.     #DELETEWORD#=</i>
  620.     #DELETEWORD#=<tr>
  621.     #DELETEWORD#=</tr>
  622.     #DELETEWORD#=<td>
  623.     #DELETEWORD#=</td>
  624.     #DELETEWORD#= 
  625.     #DELETEWORD#=</P>
  626.     #DELETEWORD#=</p>
  627.     #DELETEWORD#=<p>
  628.     #DELETEWORD#=</BLOCKQUOTE>
  629.     #DELETEWORD#=</font>
  630.     #DELETEWORD#=</table>
  631.     #DELETEWORD#=</TITLE>
  632.     #DELETEWORD#=<p align=justify>
  633. #ENDDELETETAGS#
  634.  
  635. #SUBSTITUTETAGS#
  636.     #SUBSTITUTEWORD#=/,=
  637.     #SUBSTITUTEWORD#= = 
  638.     #SUBSTITUTEWORD#="="
  639.     #SUBSTITUTEWORD#=<br>=-
  640.     #SUBSTITUTEWORD#=<BR>=-
  641.     #SUBSTITUTEWORD#=</font>=
  642.     #SUBSTITUTEWORD#= =
  643.     #SUBSTITUTEWORD#=í=í
  644.     #SUBSTITUTEWORD#=ó=ó
  645.     #SUBSTITUTEWORD#=ú=ú
  646.     #SUBSTITUTEWORD#=ñ=ñ
  647.     #SUBSTITUTEWORD#=Ñ=Ñ
  648.     #SUBSTITUTEWORD#=ª=ª
  649.     #SUBSTITUTEWORD#=º=º
  650.     #SUBSTITUTEWORD#=¿=¿
  651.     #SUBSTITUTEWORD#=⌐=⌐
  652.     #SUBSTITUTEWORD#=¬=¬
  653.     #SUBSTITUTEWORD#=½=½
  654.     #SUBSTITUTEWORD#=¼=¼
  655.     #SUBSTITUTEWORD#=­=¡
  656.     #SUBSTITUTEWORD#=«=«
  657.     #SUBSTITUTEWORD#=»=»
  658.     #SUBSTITUTEWORD#=░=░
  659.     #SUBSTITUTEWORD#=▒=▒
  660.     #SUBSTITUTEWORD#=▓=▓
  661.     #SUBSTITUTEWORD#=│=│
  662.     #SUBSTITUTEWORD#=┤=┤
  663.     #SUBSTITUTEWORD#=╡=╡
  664.     #SUBSTITUTEWORD#=╢=╢
  665.     #SUBSTITUTEWORD#=╖=╖
  666.     #SUBSTITUTEWORD#=╕=╕
  667.     #SUBSTITUTEWORD#=╣=╣
  668.     #SUBSTITUTEWORD#=║=║
  669.     #SUBSTITUTEWORD#=╗=╗
  670.     #SUBSTITUTEWORD#=╝=╝
  671.     #SUBSTITUTEWORD#=╜=╜
  672.     #SUBSTITUTEWORD#=╛=╛
  673.     #SUBSTITUTEWORD#=┐=┐
  674.     #SUBSTITUTEWORD#=└=└
  675.     #SUBSTITUTEWORD#=┴=┴
  676.     #SUBSTITUTEWORD#=┬=┬
  677.     #SUBSTITUTEWORD#=├=├
  678.     #SUBSTITUTEWORD#=─=─
  679.     #SUBSTITUTEWORD#=┼=┼
  680.     #SUBSTITUTEWORD#=╞=╞
  681.     #SUBSTITUTEWORD#=╟=╟
  682.     #SUBSTITUTEWORD#=╚=╚
  683.     #SUBSTITUTEWORD#=╔=╔
  684.     #SUBSTITUTEWORD#=╩=╩
  685.     #SUBSTITUTEWORD#=╦=╦
  686.     #SUBSTITUTEWORD#=╠=╠
  687.     #SUBSTITUTEWORD#=═=═
  688.     #SUBSTITUTEWORD#=╬=╬
  689.     #SUBSTITUTEWORD#=╧=╧
  690.     #SUBSTITUTEWORD#=╨=╨
  691.     #SUBSTITUTEWORD#=╤=╤
  692.     #SUBSTITUTEWORD#=╥=╥
  693.     #SUBSTITUTEWORD#=╙=╙
  694.     #SUBSTITUTEWORD#=╘=╘
  695.     #SUBSTITUTEWORD#=╒=╒
  696.     #SUBSTITUTEWORD#=╓=╓
  697.     #SUBSTITUTEWORD#=╫=╫
  698.     #SUBSTITUTEWORD#=╪=╪
  699.     #SUBSTITUTEWORD#=┘=┘
  700.     #SUBSTITUTEWORD#=┌=┌
  701.     #SUBSTITUTEWORD#=█=█
  702.     #SUBSTITUTEWORD#=▄=▄
  703.     #SUBSTITUTEWORD#=▌=▌
  704.     #SUBSTITUTEWORD#=▐=▐
  705.     #SUBSTITUTEWORD#=▀=▀
  706.     #SUBSTITUTEWORD#=α=α
  707.     #SUBSTITUTEWORD#=ß=ß
  708.     #SUBSTITUTEWORD#=Γ=Γ
  709.     #SUBSTITUTEWORD#=π=π
  710.     #SUBSTITUTEWORD#=Σ=Σ
  711.     #SUBSTITUTEWORD#=σ=σ
  712.     #SUBSTITUTEWORD#=µ=µ
  713.     #SUBSTITUTEWORD#=τ=τ
  714.     #SUBSTITUTEWORD#=Φ=Φ
  715.     #SUBSTITUTEWORD#=Θ=Θ
  716.     #SUBSTITUTEWORD#=Ω=Ω
  717.     #SUBSTITUTEWORD#=δ=δ
  718.     #SUBSTITUTEWORD#=∞=∞
  719.     #SUBSTITUTEWORD#=φ=φ
  720.     #SUBSTITUTEWORD#=ε=ε
  721.     #SUBSTITUTEWORD#=∩=∩
  722.     #SUBSTITUTEWORD#=≡=≡
  723.     #SUBSTITUTEWORD#=±=±
  724.     #SUBSTITUTEWORD#=≥=≥
  725.     #SUBSTITUTEWORD#=≤=≤
  726.     #SUBSTITUTEWORD#=⌠=⌠
  727.     #SUBSTITUTEWORD#=⌡=⌡
  728.     #SUBSTITUTEWORD#=÷=÷
  729.     #SUBSTITUTEWORD#=≈=≈
  730.     #SUBSTITUTEWORD#=°=°
  731.     #SUBSTITUTEWORD#=∙=∙
  732.     #SUBSTITUTEWORD#=·=·
  733.     #SUBSTITUTEWORD#=√=√
  734.     #SUBSTITUTEWORD#=ⁿ=ⁿ
  735.     #SUBSTITUTEWORD#=²=²
  736.     #SUBSTITUTEWORD#=■=■
  737.     #SUBSTITUTEWORD#= = 
  738. #ENDSUBSTITUTETAGS#
  739.  
  740.